home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 12 C64 Telecom / COTTER.ARC / UNSQUZ.COTTAGE (.txt) < prev   
Encoding:
Commodore BASIC  |  2019-04-13  |  2.3 KB  |  27 lines
  1. 0 REM THIS PROGRAM RESTORES ALL FILES IN THE TERMINAL PACKAGE
  2. 2 PRINT"[147]THIS WILL TAKE APPROX. 11 MINUTES...."
  3. 3 PRINT"FILE#";
  4. 5 SYS4192
  5. 10 N$="B1B2B3B4B5D0P1P2P3A1A2A3C0O1O2O3O4O5O6O7O8F0F1F2T0":I=1
  6. 20 OPEN8,8,8,"0:COTT.DOC,S,R"
  7. 30 SYS4096:PRINTINT(I/2+1);
  8. 40 NA$=MID$(N$,I,2)
  9. 50 OPEN7,8,7,"0:"+NA$+",S,W"
  10. 60 SYS4144
  11. 70 CLOSE7
  12. 80 I=I+2:IFI<50THEN30
  13. 90 CLOSE8
  14. 100 DIMA$(20):POKE251,0:POKE252,32
  15. 110 A$(1)="M":A$(2)="P":A$(3)="DEFAULT":A$(4)="KFG":A$(5)="ASCKFG":A$(6)="L"
  16. 120 A$(7)="L1":A$(8)="HELP":A$(9)="HELP!":A$(10)="V":A$(11)="VT3"
  17. 130 A$(12)="BOOT":A$(13)="T3":A$(14)="HAYES":A$(15)="MI/MO":A$(16)=" 1650"
  18. 140 A$(17)=" 166O"
  19. 142 OPEN8,8,8,"0:COTTAGETERM 2,P,R":SYS3840:CLOSE8:POKE251,2:POKE252,32
  20. 150 FORI=1TO9
  21. 160 OPEN8,8,8,"0:"+A$(I)+",S,W"
  22. 170 SYS3936:CLOSE8:PRINTI+25;:NEXT
  23. 180 FORI=10TO17
  24. 190 OPEN8,8,8,"0:"+A$(I)+",P,W"
  25. 200 SYS3936:CLOSE8:PRINTI+25;:NEXT
  26. 210 PRINT:PRINT"DONE.":PRINT"TO USE THIS PACKAGE, LOAD"CHR$(34)"BOOT,8"CHR$(34)" & RUN."
  27.